#!/usr/bin/perl -w

use strict;

my ($word, $definition); 

format = 
  ^<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
  $word, $definition 
.

$word = "outlier";

$definition = "1. someone sleeping outdoors. " .
    "2. someone whose office is not at home. " .
    "3. an animal who strays from the fold. " .
    "4. something that has been separated from the main body.";

print("****************\n");
write();
print("****************\n");
